CD/PC Actual 76

home *** CD-ROM | disk | FTP | other *** search

/ CD/PC Actual 76 / DVD Actual 1 Marzo 2003.iso / Trial / TurboCAD 7.1 Pro / Data.Cab / F25711_DatRef.frm (.txt) < prev next >

Wrap

Visual Basic Form | 2000-11-10 | 40.0 KB | 1,355 lines

VERSION 5.00 Begin VB.Form frmSample BorderStyle = 1 'Fixed Single Caption = "Tolerance" ClientHeight = 4770 ClientLeft = 3420 ClientTop = 2895 ClientWidth = 9360 KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 4770 ScaleWidth = 9360 Begin VB.PictureBox Image14 AutoSize = -1 'True Height = 375 Left = 3000 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 57 Top = 960 Width = 375 End Begin VB.PictureBox Image25 AutoSize = -1 'True Height = 375 Left = 4440 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 56 Top = 1560 Width = 375 End Begin VB.PictureBox Image15 AutoSize = -1 'True Height = 375 Left = 4440 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 55 Top = 960 Width = 375 End Begin VB.PictureBox Image31 AutoSize = -1 'True Height = 375 Left = 2400 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 24 Top = 2160 Width = 375 End Begin VB.PictureBox Image28 AutoSize = -1 'True Height = 375 Left = 8760 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 22 Top = 1560 Width = 375 End Begin VB.PictureBox Image27 AutoSize = -1 'True Height = 375 Left = 7320 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 20 Top = 1560 Width = 375 End Begin VB.PictureBox Image26 AutoSize = -1 'True Height = 375 Left = 5880 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 18 Top = 1560 Width = 375 End Begin VB.PictureBox Image24 AutoSize = -1 'True Height = 375 Left = 3000 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 15 Top = 1560 Width = 375 End Begin VB.PictureBox Image23 AutoSize = -1 'True Height = 375 Left = 2400 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 14 Top = 1560 Width = 375 End Begin VB.PictureBox Image22 AutoSize = -1 'True Height = 375 Left = 960 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 12 Top = 1560 Width = 375 End Begin VB.PictureBox Image21 AutoSize = -1 'True Height = 375 Left = 360 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 11 Top = 1560 Width = 375 End Begin VB.PictureBox Image18 AutoSize = -1 'True Height = 375 Left = 8760 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 10 Top = 960 Width = 375 End Begin VB.PictureBox Image17 AutoSize = -1 'True Height = 375 Left = 7320 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 8 Top = 960 Width = 375 End Begin VB.PictureBox Image16 AutoSize = -1 'True Height = 375 Left = 5880 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 6 Top = 960 Width = 375 End Begin VB.PictureBox Image13 AutoSize = -1 'True Height = 375 Left = 2400 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 3 Top = 960 Width = 375 End Begin VB.PictureBox Image12 AutoSize = -1 'True Height = 375 Left = 960 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 1 Top = 960 Width = 375 End Begin VB.PictureBox Image11 AutoSize = -1 'True Height = 375 Left = 360 ScaleHeight = 315 ScaleWidth = 315 TabIndex = 0 Top = 960 Width = 375 End Begin VB.Frame Frame2 Caption = "Font Height" Height = 735 Left = 360 TabIndex = 53 Top = 3840 Width = 1575 Begin VB.TextBox ScaleSym Height = 315 Left = 240 TabIndex = 26 Text = "1" Top = 240 Width = 1095 End End Begin VB.Frame Frame1 Caption = "Font Setting" Height = 735 Left = 2040 TabIndex = 52 Top = 3840 Width = 3615 Begin VB.CommandButton Font1 Caption = "Font" Enabled = 0 'False Height = 375 Left = 2265 TabIndex = 28 Top = 240 Width = 1215 End Begin VB.CheckBox CheckFont Caption = "Use the document font" Height = 375 Left = 240 TabIndex = 27 Top = 240 Value = 1 'Checked Width = 1935 End End Begin VB.CommandButton Help1 Caption = "Help" Height = 375 Left = 7680 TabIndex = 31 Top = 3600 Width = 1215 End Begin VB.TextBox Text41 Height = 375 Left = 360 ScrollBars = 1 'Horizontal TabIndex = 25 Top = 2760 Width = 4455 End Begin VB.TextBox Text31 Height = 375 Left = 360 TabIndex = 23 Top = 2160 Width = 1935 End Begin VB.TextBox Text25 Height = 375 Left = 7920 TabIndex = 21 Top = 1560 Width = 735 End Begin VB.TextBox Text22 Height = 375 Left = 3480 TabIndex = 16 Top = 1560 Width = 855 End Begin VB.TextBox Text12 Height = 375 Left = 3480 TabIndex = 4 Top = 960 Width = 855 End Begin VB.TextBox Text24 Height = 375 Left = 6480 TabIndex = 19 Top = 1560 Width = 735 End Begin VB.TextBox Text23 Height = 375 Left = 5040 TabIndex = 17 Top = 1560 Width = 735 End Begin VB.TextBox Text21 Height = 375 Left = 1440 TabIndex = 13 Top = 1560 Width = 855 End Begin VB.TextBox Text15 Height = 375 Left = 7920 TabIndex = 9 Top = 960 Width = 735 End Begin VB.TextBox Text14 Height = 375 Left = 6480 TabIndex = 7 Top = 960 Width = 735 End Begin VB.TextBox Text13 Height = 375 Left = 5040 TabIndex = 5 Top = 960 Width = 735 End Begin VB.TextBox Text11 Height = 375 Left = 1440 TabIndex = 2 Text = "0.00" Top = 960 Width = 855 End Begin VB.CommandButton cmdOK Caption = "OK" Height = 375 Left = 7680 TabIndex = 29 Top = 2400 Width = 1215 End Begin VB.CommandButton cmdCancel Caption = "Cancel" Height = 375 Left = 7680 TabIndex = 30 Top = 3000 Width = 1215 End Begin VB.Line Line26 BorderWidth = 2 X1 = 3840 X2 = 5760 Y1 = 3600 Y2 = 3600 End Begin VB.Line Line18 BorderWidth = 2 X1 = 5760 X2 = 5760 Y1 = 3600 Y2 = 4680 End Begin VB.Line Line17 BorderWidth = 2 X1 = 5760 X2 = 240 Y1 = 4680 Y2 = 4680 End Begin VB.Line Line16 BorderWidth = 2 X1 = 240 X2 = 240 Y1 = 4680 Y2 = 3600 End Begin VB.Line Line15 BorderWidth = 2 X1 = 2160 X2 = 240 Y1 = 3600 Y2 = 3600 End Begin VB.Label Label1 Caption = "Frame Parameters" Height = 252 Left = 2280 TabIndex = 54 Top = 3480 Width = 1452 End Begin VB.Line Line25 BorderStyle = 3 'Dot X1 = 9240 X2 = 9240 Y1 = 840 Y2 = 240 End Begin VB.Line Line24 BorderStyle = 3 'Dot X1 = 7800 X2 = 7800 Y1 = 840 Y2 = 240 End Begin VB.Line Line23 BorderStyle = 3 'Dot X1 = 6360 X2 = 6360 Y1 = 840 Y2 = 240 End Begin VB.Line Line22 BorderStyle = 3 'Dot X1 = 4920 X2 = 4920 Y1 = 840 Y2 = 240 End Begin VB.Line Line21 BorderStyle = 3 'Dot X1 = 2880 X2 = 2880 Y1 = 840 Y2 = 240 End Begin VB.Line Line20 BorderStyle = 3 'Dot X1 = 840 X2 = 840 Y1 = 840 Y2 = 240 End Begin VB.Line Line19 BorderStyle = 3 'Dot X1 = 240 X2 = 240 Y1 = 840 Y2 = 240 End Begin VB.Label Label3 Caption = "Sym" Height = 255 Left = 360 TabIndex = 51 Top = 120 Width = 375 End Begin VB.Label Label2 Caption = "Tolerance1" Height = 255 Left = 1440 TabIndex = 50 Top = 120 Width = 855 End Begin VB.Label Label21 Caption = "MC" Height = 255 Left = 8880 TabIndex = 49 Top = 480 Width = 255 End Begin VB.Label Label20 Caption = "Datum" Height = 255 Left = 8040 TabIndex = 48 Top = 480 Width = 495 End Begin VB.Label Label19 Caption = "MC" Height = 255 Left = 7440 TabIndex = 47 Top = 480 Width = 255 End Begin VB.Label Label18 Caption = "Datum" Height = 255 Left = 6600 TabIndex = 46 Top = 480 Width = 495 End Begin VB.Label Label17 Caption = "MC" Height = 255 Left = 6000 TabIndex = 45 Top = 480 Width = 255 End Begin VB.Label Label16 Caption = "Datum" Height = 255 Left = 5160 TabIndex = 44 Top = 480 Width = 495 End Begin VB.Label Label15 Caption = "MC" Height = 255 Left = 4560 TabIndex = 43 Top = 480 Width = 255 End Begin VB.Label Label14 Caption = "Value" Height = 255 Left = 3720 TabIndex = 42 Top = 480 Width = 495 End Begin VB.Label Label13 Caption = "Dia" Height = 255 Left = 3000 TabIndex = 41 Top = 480 Width = 375 End Begin VB.Label Label12 Caption = "MC" Height = 255 Left = 2520 TabIndex = 40 Top = 480 Width = 255 End Begin VB.Label Label11 Caption = "Value" Height = 255 Left = 1560 TabIndex = 39 Top = 480 Width = 495 End Begin VB.Label Label10 Caption = "Dia" Height = 255 Left = 960 TabIndex = 38 Top = 480 Width = 375 End Begin VB.Label Label9 Caption = "Datum Identifier" Height = 375 Left = 5160 TabIndex = 37 Top = 2760 Width = 1215 End Begin VB.Label Label8 Caption = " Height projected tolerance zone" Height = 255 Left = 3120 TabIndex = 36 Top = 2280 Width = 2535 End Begin VB.Label Label7 Caption = "Datum3" Height = 255 Left = 8160 TabIndex = 35 Top = 120 Width = 615 End Begin VB.Label Label6 Caption = "Datum2" Height = 255 Left = 6720 TabIndex = 34 Top = 120 Width = 615 End Begin VB.Label Label5 Caption = "Datum1" Height = 255 Left = 5280 TabIndex = 33 Top = 120 Width = 615 End Begin VB.Label Label4 Caption = "Tolerance2" Height = 255 Left = 3480 TabIndex = 32 Top = 120 Width = 975 End Begin VB.Line Line14 BorderWidth = 3 X1 = 4920 X2 = 4920 Y1 = 2640 Y2 = 3240 End Begin VB.Line Line13 BorderWidth = 3 X1 = 2880 X2 = 2880 Y1 = 2040 Y2 = 2640 End Begin VB.Line Line12 BorderWidth = 3 X1 = 240 X2 = 4920 Y1 = 2640 Y2 = 2640 End Begin VB.Line Line11 BorderWidth = 3 X1 = 240 X2 = 4920 Y1 = 3240 Y2 = 3240 End Begin VB.Line Line10 BorderWidth = 3 X1 = 9240 X2 = 9240 Y1 = 840 Y2 = 2040 End Begin VB.Line Line9 BorderWidth = 3 X1 = 7800 X2 = 7800 Y1 = 840 Y2 = 2040 End Begin VB.Line Line8 BorderWidth = 3 X1 = 6360 X2 = 6360 Y1 = 840 Y2 = 2040 End Begin VB.Line Line7 BorderWidth = 3 X1 = 4920 X2 = 4920 Y1 = 840 Y2 = 2040 End Begin VB.Line Line6 BorderWidth = 3 X1 = 2880 X2 = 2880 Y1 = 840 Y2 = 2040 End Begin VB.Line Line5 BorderWidth = 3 X1 = 840 X2 = 840 Y1 = 840 Y2 = 2040 End Begin VB.Line Line4 BorderWidth = 3 X1 = 240 X2 = 240 Y1 = 840 Y2 = 3240 End Begin VB.Line Line2 BorderWidth = 3 X1 = 240 X2 = 9240 Y1 = 2040 Y2 = 2040 End Begin VB.Line Line1 BorderWidth = 3 X1 = 240 X2 = 9240 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line3 BorderWidth = 3 X1 = 240 X2 = 9240 Y1 = 840 Y2 = 840 End Attribute VB_Name = "frmSample" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit '/******************************************************************/ '/* */ '/* TurboCAD for Windows */ '/* Copyright (c) 1993 - 1996 */ '/* International Microcomputer Software, Inc. */ '/* (IMSI) */ '/* All rights reserved. */ '/* */ '/******************************************************************/ ' Storage for read-only property indicating whether ' or not the dialog box was cancelled. Default is ' False. Note that the declaration is Private, so ' that the value cannot be set from the OLE client ' application. The client reads the value using the ' DialogCancelled property. Private blnDialogCanceled As Boolean Private Im110$, Im120$, Im130$, Im140$, Im150$, Im160$, Im170$, Im180$ Private Str110$, Str120$, Str130$, Str140$, Str150$ Private Im210$, Im220$, Im230$, Im240$, Im250$, Im260$, Im270$, Im280$ Private Str210$, Str220$, Str230$, Str240$, Str250$ Private Im310$ Private Str310$ Private Str410$ Private SymTxtHeight0# Private TextF0$ ' Read-only property indicating cancellation of the ' dialog. Property Get DialogCanceled() As Boolean DialogCanceled = blnDialogCanceled End Property Private Sub CheckFont_Click() If CheckFont.Value = 0 Then Font1.Enabled = True ' !!!!!!!!!!!! If CheckFont.Value = 1 Then Font1.Enabled = False ' !!!!!!!!!!!! End Sub Private Sub CheckFont_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub cmdCancel_Click() Call EscClick End Sub Private Sub cmdOK_Click() On Error GoTo Failed SymTxtHeight = CDbl(frmSample.ScaleSym.Text) If SymTxtHeight <= 0 Then GoTo Failed Unload Form1 Unload Form2 Unload Form3 blnDialogCanceled = False Me.Hide Exit Sub Failed: MsgBox ("Please enter a valid Textheight") End Sub Private Sub Picture1_Click() End Sub Private Sub Font1_Click() Form3.Show 1 End Sub Private Sub Font1_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Form_Load() Im110 = Im11 Im120 = Im12 Im130 = Im13 Im140 = Im14 Im150 = Im15 Im160 = Im16 Im170 = Im17 Im180 = Im18 Str110 = Str11 Str120 = Str12 Str130 = Str13 Str140 = Str14 Str150 = Str15 Im210 = Im21 Im220 = Im22 Im230 = Im23 Im240 = Im24 Im250 = Im25 Im260 = Im26 Im270 = Im27 Im280 = Im28 Str210 = Str21 Str220 = Str22 Str230 = Str23 Str240 = Str24 Str250 = Str25 Im310 = Im31 Str310 = Str31 Str410 = Str41 SymTxtHeight0 = SymTxtHeight TextF0 = TextF If TextF = "Times New Roman" Then CheckFont.Value = 1 '!!!!!!!!! Font1.Enabled = False '!!!!!!!!! Else CheckFont.Value = 0 '!!!!!!!!! Font1.Enabled = True '!!!!!!!!! End If ' Begin Tabl.1 If Im11 = "" Then frmSample.Image11.Picture = Form1.Image1.Picture End If If Mid(Im11, 1, 1) = Chr(106) Then frmSample.Image11.Picture = Form1.Image2.Picture End If If Mid(Im11, 1, 1) = Chr(98) Then frmSample.Image11.Picture = Form1.Image3.Picture End If If Mid(Im11, 1, 1) = Chr(102) Then frmSample.Image11.Picture = Form1.Image4.Picture End If If Mid(Im11, 1, 1) = Chr(104) Then frmSample.Image11.Picture = Form1.Image5.Picture End If If Mid(Im11, 1, 1) = Chr(114) Then frmSample.Image11.Picture = Form1.Image6.Picture End If If Mid(Im11, 1, 1) = Chr(105) Then frmSample.Image11.Picture = Form1.Image7.Picture End If If Mid(Im11, 1, 1) = Chr(97) Then frmSample.Image11.Picture = Form1.Image8.Picture End If If Mid(Im11, 1, 1) = Chr(103) Then frmSample.Image11.Picture = Form1.Image9.Picture End If If Mid(Im11, 1, 1) = Chr(99) Then frmSample.Image11.Picture = Form1.Image10.Picture End If If Mid(Im11, 1, 1) = Chr(101) Then frmSample.Image11.Picture = Form1.Image11.Picture End If If Mid(Im11, 1, 1) = Chr(117) Then frmSample.Image11.Picture = Form1.Image12.Picture End If If Mid(Im11, 1, 1) = Chr(100) Then frmSample.Image11.Picture = Form1.Image13.Picture End If If Mid(Im11, 1, 1) = Chr(107) Then frmSample.Image11.Picture = Form1.Image14.Picture End If If Mid(Im11, 1, 1) = Chr(116) Then frmSample.Image11.Picture = Form1.Image15.Picture End If '------------------------------------------------------- If Im12 = "" Then frmSample.Image12.Picture = Form1.Image1.Picture End If If Mid(Im12, 1, 1) = Chr(110) Then frmSample.Image12.Picture = Form1.Image16.Picture End If '------------------------------------------------------- If Im13 = "" Then frmSample.Image13.Picture = Form2.Image1.Picture End If If Mid(Im13, 1, 1) = Chr(109) Then frmSample.Image13.Picture = Form2.Image17.Picture End If If Mid(Im13, 1, 1) = Chr(108) Then frmSample.Image13.Picture = Form2.Image18.Picture End If If Mid(Im13, 1, 1) = Chr(115) Then frmSample.Image13.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im14 = "" Then frmSample.Image14.Picture = Form1.Image1.Picture End If If Mid(Im14, 1, 1) = Chr(110) Then frmSample.Image14.Picture = Form1.Image16.Picture End If '-------------------------------------------------------- If Im15 = "" Then frmSample.Image15.Picture = Form2.Image1.Picture End If If Mid(Im15, 1, 1) = Chr(109) Then frmSample.Image15.Picture = Form2.Image17.Picture End If If Mid(Im15, 1, 1) = Chr(108) Then frmSample.Image15.Picture = Form2.Image18.Picture End If If Mid(Im15, 1, 1) = Chr(115) Then frmSample.Image15.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im16 = "" Then frmSample.Image16.Picture = Form2.Image1.Picture End If If Mid(Im16, 1, 1) = Chr(109) Then frmSample.Image16.Picture = Form2.Image17.Picture End If If Mid(Im16, 1, 1) = Chr(108) Then frmSample.Image16.Picture = Form2.Image18.Picture End If If Mid(Im16, 1, 1) = Chr(115) Then frmSample.Image16.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im17 = "" Then frmSample.Image17.Picture = Form2.Image1.Picture End If If Mid(Im17, 1, 1) = Chr(109) Then frmSample.Image17.Picture = Form2.Image17.Picture End If If Mid(Im17, 1, 1) = Chr(108) Then frmSample.Image17.Picture = Form2.Image18.Picture End If If Mid(Im17, 1, 1) = Chr(115) Then frmSample.Image17.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im18 = "" Then frmSample.Image18.Picture = Form2.Image1.Picture End If If Mid(Im18, 1, 1) = Chr(109) Then frmSample.Image18.Picture = Form2.Image17.Picture End If If Mid(Im18, 1, 1) = Chr(108) Then frmSample.Image18.Picture = Form2.Image18.Picture End If If Mid(Im18, 1, 1) = Chr(115) Then frmSample.Image18.Picture = Form2.Image19.Picture End If frmSample.Text11.Text = Str11 frmSample.Text12.Text = Str12 frmSample.Text13.Text = Str13 frmSample.Text14.Text = Str14 frmSample.Text15.Text = Str15 '------------------------------------------------------- ' End Tabl.1 ' Begin Tabl.2 If Im21 = "" Then frmSample.Image21.Picture = Form1.Image1.Picture End If If Mid(Im21, 1, 1) = Chr(106) Then frmSample.Image21.Picture = Form1.Image2.Picture End If If Mid(Im21, 1, 1) = Chr(98) Then frmSample.Image21.Picture = Form1.Image3.Picture End If If Mid(Im21, 1, 1) = Chr(102) Then frmSample.Image21.Picture = Form1.Image4.Picture End If If Mid(Im21, 1, 1) = Chr(104) Then frmSample.Image21.Picture = Form1.Image5.Picture End If If Mid(Im21, 1, 1) = Chr(114) Then frmSample.Image21.Picture = Form1.Image6.Picture End If If Mid(Im21, 1, 1) = Chr(105) Then frmSample.Image21.Picture = Form1.Image7.Picture End If If Mid(Im21, 1, 1) = Chr(97) Then frmSample.Image21.Picture = Form1.Image8.Picture End If If Mid(Im21, 1, 1) = Chr(103) Then frmSample.Image21.Picture = Form1.Image9.Picture End If If Mid(Im21, 1, 1) = Chr(99) Then frmSample.Image21.Picture = Form1.Image10.Picture End If If Mid(Im21, 1, 1) = Chr(101) Then frmSample.Image21.Picture = Form1.Image11.Picture End If If Mid(Im21, 1, 1) = Chr(117) Then frmSample.Image21.Picture = Form1.Image12.Picture End If If Mid(Im21, 1, 1) = Chr(100) Then frmSample.Image21.Picture = Form1.Image13.Picture End If If Mid(Im21, 1, 1) = Chr(107) Then frmSample.Image21.Picture = Form1.Image14.Picture End If If Mid(Im21, 1, 1) = Chr(116) Then frmSample.Image21.Picture = Form1.Image15.Picture End If '------------------------------------------------------- If Im22 = "" Then frmSample.Image22.Picture = Form1.Image1.Picture End If If Mid(Im22, 1, 1) = Chr(110) Then frmSample.Image22.Picture = Form1.Image16.Picture End If '------------------------------------------------------- If Im23 = "" Then frmSample.Image23.Picture = Form2.Image1.Picture End If If Mid(Im23, 1, 1) = Chr(109) Then frmSample.Image23.Picture = Form2.Image17.Picture End If If Mid(Im23, 1, 1) = Chr(108) Then frmSample.Image23.Picture = Form2.Image18.Picture End If If Mid(Im23, 1, 1) = Chr(115) Then frmSample.Image23.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im24 = "" Then frmSample.Image24.Picture = Form1.Image1.Picture End If If Mid(Im24, 1, 1) = Chr(110) Then frmSample.Image24.Picture = Form1.Image16.Picture End If '-------------------------------------------------------- If Im25 = "" Then frmSample.Image25.Picture = Form2.Image1.Picture End If If Mid(Im25, 1, 1) = Chr(109) Then frmSample.Image25.Picture = Form2.Image17.Picture End If If Mid(Im25, 1, 1) = Chr(108) Then frmSample.Image25.Picture = Form2.Image18.Picture End If If Mid(Im25, 1, 1) = Chr(115) Then frmSample.Image25.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im26 = "" Then frmSample.Image26.Picture = Form2.Image1.Picture End If If Mid(Im26, 1, 1) = Chr(109) Then frmSample.Image26.Picture = Form2.Image17.Picture End If If Mid(Im26, 1, 1) = Chr(108) Then frmSample.Image26.Picture = Form2.Image18.Picture End If If Mid(Im26, 1, 1) = Chr(115) Then frmSample.Image26.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im27 = "" Then frmSample.Image27.Picture = Form2.Image1.Picture End If If Mid(Im27, 1, 1) = Chr(109) Then frmSample.Image27.Picture = Form2.Image17.Picture End If If Mid(Im27, 1, 1) = Chr(108) Then frmSample.Image27.Picture = Form2.Image18.Picture End If If Mid(Im27, 1, 1) = Chr(115) Then frmSample.Image27.Picture = Form2.Image19.Picture End If '------------------------------------------------------- If Im28 = "" Then frmSample.Image28.Picture = Form2.Image1.Picture End If If Mid(Im28, 1, 1) = Chr(109) Then frmSample.Image28.Picture = Form2.Image17.Picture End If If Mid(Im28, 1, 1) = Chr(108) Then frmSample.Image28.Picture = Form2.Image18.Picture End If If Mid(Im28, 1, 1) = Chr(115) Then frmSample.Image28.Picture = Form2.Image19.Picture End If frmSample.Text21.Text = Str21 frmSample.Text22.Text = Str22 frmSample.Text23.Text = Str23 frmSample.Text24.Text = Str24 frmSample.Text25.Text = Str25 '------------------------------------------------------- ' End Table 2 ' Begin Table 3 ' ------------------------------------------------ If Im31 = "" Then frmSample.Image31.Picture = Form1.Image1.Picture End If If Mid(Im31, 1, 1) = Chr(112) Then frmSample.Image31.Picture = Form1.Image20.Picture End If frmSample.Text31.Text = Str31 '------------------------------------------------- ' End Table 3 ' Begin Table 4 ' ------------------------------------------------ frmSample.Text41.Text = Str41 '------------------------------------------------- ' End Table 4 ' Begin Scale Symbol ' ------------------------------------------------ frmSample.ScaleSym.Text = CStr(SymTxtHeight) '------------------------------------------------- ' End Scale Symbol End Sub Private Sub Form_Unload(Cancel As Integer) Set App = Nothing End Sub Private Sub Help1_Click() App.Help , 10500 '141572 End Sub '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ' Begin Table 1 Private Sub Image11_Click() ClIm1 = 1 Form1.Top = frmSample.Top + frmSample.Image11.Top + frmSample.Image11.Height Form1.Left = frmSample.Left + frmSample.Image11.Left Form1.Show vbModal End Sub Private Sub Image12_Click() ClIm1 = 2 If Im12 = "" Then frmSample.Image12.Picture = Form1.Image16.Picture Im12 = Chr(110) Exit Sub End If If Im12 = Chr(110) Then frmSample.Image12.Picture = Form1.Image1.Picture Im12 = "" End If End Sub Private Sub Image13_Click() ClIm1 = 3 Form2.Top = frmSample.Top + frmSample.Image13.Top + frmSample.Image13.Height Form2.Left = frmSample.Left + frmSample.Image13.Left Form2.Show vbModal End Sub Private Sub Image14_Click() ClIm1 = 4 ' Form1.Show vbModal If Im14 = "" Then frmSample.Image14.Picture = Form1.Image16.Picture Im14 = Chr(110) Exit Sub End If If Im14 = Chr(110) Then frmSample.Image14.Picture = Form1.Image1.Picture Im14 = "" End If End Sub Private Sub Image15_Click() ClIm1 = 5 Form2.Top = frmSample.Top + frmSample.Image15.Top + frmSample.Image15.Height Form2.Left = frmSample.Left + frmSample.Image15.Left Form2.Show vbModal End Sub Private Sub Image16_Click() ClIm1 = 6 Form2.Top = frmSample.Top + frmSample.Image16.Top + frmSample.Image16.Height Form2.Left = frmSample.Left + frmSample.Image16.Left Form2.Show vbModal End Sub Private Sub Image17_Click() ClIm1 = 7 Form2.Top = frmSample.Top + frmSample.Image17.Top + frmSample.Image17.Height Form2.Left = frmSample.Left + frmSample.Image17.Left Form2.Show vbModal End Sub Private Sub Image18_Click() ClIm1 = 8 Form2.Top = frmSample.Top + frmSample.Image18.Top + frmSample.Image18.Height Form2.Left = frmSample.Left + frmSample.Image18.Left Form2.Show vbModal End Sub Private Sub ScaleSym_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text11_Change() Str11 = frmSample.Text11.Text End Sub Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text12_Change() Str12 = frmSample.Text12.Text End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text13_Change() Str13 = frmSample.Text13.Text End Sub Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text14_Change() Str14 = frmSample.Text14.Text End Sub Private Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text15_Change() Str15 = frmSample.Text15.Text End Sub ' End Table 1 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ' Begin Table 2 Private Sub Image21_Click() ClIm2 = 1 Form1.Top = frmSample.Top + frmSample.Image21.Top + frmSample.Image21.Height Form1.Left = frmSample.Left + frmSample.Image21.Left Form1.Show vbModal End Sub Private Sub Image22_Click() ClIm2 = 2 ' Form1.Show vbModal If Im22 = "" Then frmSample.Image22.Picture = Form1.Image16.Picture Im22 = Chr(110) Exit Sub End If If Im22 = Chr(110) Then frmSample.Image22.Picture = Form1.Image1.Picture Im22 = "" End If End Sub Private Sub Image23_Click() ClIm2 = 3 Form2.Top = frmSample.Top + frmSample.Image23.Top + frmSample.Image23.Height Form2.Left = frmSample.Left + frmSample.Image23.Left Form2.Show vbModal End Sub Private Sub Image24_Click() ClIm2 = 4 ' Form1.Show vbModal If Im24 = "" Then frmSample.Image24.Picture = Form1.Image16.Picture Im24 = Chr(110) Exit Sub End If If Im24 = Chr(110) Then frmSample.Image24.Picture = Form1.Image1.Picture Im24 = "" End If End Sub Private Sub Image25_Click() ClIm2 = 5 Form2.Top = frmSample.Top + frmSample.Image25.Top + frmSample.Image25.Height Form2.Left = frmSample.Left + frmSample.Image25.Left Form2.Show vbModal End Sub Private Sub Image26_Click() ClIm2 = 6 Form2.Top = frmSample.Top + frmSample.Image26.Top + frmSample.Image26.Height Form2.Left = frmSample.Left + frmSample.Image26.Left Form2.Show vbModal End Sub Private Sub Image27_Click() ClIm2 = 7 Form2.Top = frmSample.Top + frmSample.Image27.Top + frmSample.Image27.Height Form2.Left = frmSample.Left + frmSample.Image27.Left Form2.Show vbModal End Sub Private Sub Image28_Click() ClIm2 = 8 Form2.Top = frmSample.Top + frmSample.Image28.Top + frmSample.Image28.Height Form2.Left = frmSample.Left + frmSample.Image28.Left Form2.Show vbModal End Sub Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text21_Change() Str21 = frmSample.Text21.Text End Sub Private Sub Text21_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text22_Change() Str22 = frmSample.Text22.Text End Sub Private Sub Text22_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text23_Change() Str23 = frmSample.Text23.Text End Sub Private Sub Text23_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text24_Change() Str24 = frmSample.Text24.Text End Sub Private Sub Text24_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text25_Change() Str25 = frmSample.Text25.Text End Sub ' End Table 2 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ' Begin Table 3 Private Sub Image31_Click() ClIm3 = 1 ' Form1.Show vbModal If Im31 = "" Then frmSample.Image31.Picture = Form1.Image20.Picture Im31 = Chr(112) Exit Sub End If If Im31 = Chr(112) Then frmSample.Image31.Picture = Form1.Image1.Picture Im31 = "" End If End Sub Private Sub Text25_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub Private Sub Text31_Change() Str31 = frmSample.Text31.Text End Sub Private Sub Text31_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub ' End Table 3 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ' Begin Table 4 Private Sub Text41_Change() Str41 = frmSample.Text41.Text End Sub ' End Table 3 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ' Begin Scale Private Sub ScaleSym_Change() ' SymTxtHeight = CDbl(frmSample.ScaleSym.Text) End Sub Private Sub EscClick() Im11 = Im110 Im12 = Im120 Im13 = Im130 Im14 = Im140 Im15 = Im150 Im16 = Im160 Im17 = Im170 Im18 = Im180 Str11 = Str110 Str12 = Str120 Str13 = Str130 Str14 = Str140 Str15 = Str150 Im21 = Im210 Im22 = Im220 Im23 = Im230 Im24 = Im240 Im25 = Im250 Im26 = Im260 Im27 = Im270 Im28 = Im280 Str21 = Str210 Str22 = Str220 Str23 = Str230 Str24 = Str240 Str25 = Str250 Im31 = Im310 Str31 = Str310 Str41 = Str410 SymTxtHeight = SymTxtHeight0 TextF = TextF0 blnDialogCanceled = True Me.Hide End Sub Private Sub Text41_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Call EscClick End Sub